use warnings;
use strict;
use Data::Dumper;

my $var;
my @arr;
my %hash;
my $tmp;

@arr = (1,2,3);
%hash = (1=>3, "sf"=>33);


print Dumper(\@arr);
print Dumper(\%hash);
print Dumper(\@arr, \%hash);

